home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
LANG
/
BASIC
/
LIB
/
EVENTSHELL
/
SLIDERS
/
!Sliders
/
!Run
< prev
next >
Wrap
Text File
|
1995-12-29
|
752b
|
17 lines
| !Run Obey file for Sliders Application
Set Sliders$Dir <Obey$Dir>
Set Sliders$BasicFile <Obey$Dir>.!Sliders
IF "<EvntShell$Path>"="" THEN ERROR 0 Shell resources not found
IconSprites <Obey$Dir>.!Sprites
WimpSlot -min 256K -max 256K
|Load any modules required now
RMEnsure InterfaceManager 2.00 RMLoad <EvntShell$Path>Interface
RMEnsure InterfaceManager 2.00 Error Couldn't load Interface module
RMEnsure MenuUtils 0.11 RMLoad <EvntShell$Path>MenuUtils
RMEnsure MenuUtils 0.11 Error 0 Error Couldn't load MenuUtils Module
RMEnsure MessageTrans 0.06 RMLoad <EvntShell$Path>MsgTrans
RMEnsure MessageTrans 0.06 Error Couldn't load MsgTrans Module
|And check that there is still enough memory!
WimpSlot -min 256K -max 256K
Run <Sliders$Dir>.!Sliders %*0